Labels:text | screenshot | display | number OCR: DBLIST PAS dblist procedure Trorml. FormCreate (Sender: Tobject) : begin with Table1 do begin open; while not EOF do begin DBListBox1. Items . Add (FieldByName (' Color' ) .AsString) ; Next; enid end; ond: 35: 70 | Modified Figure 2: The OnCreate event handler for Form1.